Otherware/Otherware_1_SB_Development.iso/mac/hypercar/mactool/bombandc.cpt/B&C Encyclopedia/card_2851.txt

Text File | 1991-03-23 | 1.9 KB | 68 lines

-- card: 2851 from stack: in
-- bmap block id: 3177
-- flags: 0000
-- background id: 2774
-- name: Logo
----- HyperTalk script -----
∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞
This script and all scripts contained in
the Bomb and Crash Encyclopedia -- Version 1.0
Copyright © 1991 by MacSpect, Inc.
All Rights Reserved
Commercial Distribution Restricted
∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞

on openstack
  set cursor to none
  hide menubar
  hide msg
  if the version < 1.2 then
    answer "HyperCard 1.2 or greater required."
    go home
    exit openstack
  end if
  wait 5 ticks
  play BadLove
  wait 60 ticks
  visual dissolve slow to cd
  push cd TitlePage
  go cd TitlePage
  SetPassword
  global CorrectPassword
  global cpw
  put "Registered" into cpw
  get cd fld "Password" of cd "TitlePage"
  if it Γëá CorrectPassword then
    get cd fld 1 of cd "TitlePage"
    if it is empty then
      set visible of cd fld "NotRegistered" of cd "TitlePage" to not the visible of cd fld "NotRegistered" of cd "TitlePage"
      hide cd fld 1 of cd "TitlePage"
    end if
  end if
  if the version ≥ 2.0 then
    if cantModify of this stack is true then
      HC20
    end if
  end if
end openstack


-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: GoTitlePage
----- HyperTalk script -----
on mouseUp
  visual effect dissolve slow
  go cd TitlePage
end mouseUp